Imports Microsoft.VisualBasic

Namespace MyDAO
    Public Class MyDataSortDirection
        Public Value As String

        Public Sub New(ByVal direction As String)
            Me.Value = direction
        End Sub

        Public Overrides Function ToString() As String
            Return Me.Value
        End Function

        Public Shared Ascending As New MyDataSortDirection("ASC")
        Public Shared Descending As New MyDataSortDirection("DESC")
    End Class

End Namespace
